home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World Interactive 1995 August
/
Personal Computer World (PCW Interactive) (August 1995).iso
/
demos
/
bio
/
bioforge
/
script
/
chaosblk.scp
< prev
next >
Wrap
Text File
|
1995-02-28
|
8KB
|
904 lines
{ CE1_LOAD
I @Ç¢ CAYNAN THEN
{
I .ÇéÇÇ >= 0 THEN
{
┬
}
}
}
{ CE2_LOAD
I ^î£ = $üâ AND @Çú THEN
{
I @Ç¢ GUARD1 THEN
{
I ^î¥ = $üâ THEN
{
M ATK_STAND CONTINUE SNAP_TO
â
o
┬
}
E
{
M WAKE_UP CONTINUE SNAP_TO
â
o
┬
}
}
E ! "Can't find Guard1"
}
}
{ CE4_LOAD
I @Ç¢ USE_BOT THEN
┬
}
{ BLK_LOAD
I @Ç¢ USE_BOT THEN
┬
}
{ CE3_LOAD
I @Çó ^Ç¿ THEN
^Ç¿
^ëù = 0
^Ç¿ = @Çè ^ëù +10 0 100 300
I ^åç == 0 THEN
{
ƒ CE33 ON
ƒ CE32 OFF
}
E
{
ƒ CE33 OFF
ƒ CE32 ON
}
}
{ BLK1_LOAD
O $Çò
I @Çû ^ê½ THEN ^ê½
}
{ BLK2_LOAD
I @Çû ^ê½ THEN ^ê½
}
{ BLK3_LOAD
I ^ï£ == 1 THEN
^Ç▓ = 1
E
^Ç▓ = 0
I ^ǽ = 1 AND @Çû ^ê½ THEN
{
^ê½
é
}
I ^ǽ = 2 THEN
{
I @Çû ^ê½ THEN
{
^ê½ 20
^ê║ = 20
é
}
I @Çû ^ê½ = $üé THEN
{
^ê½ = @Çç `Ǫ 20
^ê║ = 20
é
}
}
I ^ǽ = 0 THEN
{
I @Çû ^ê½ THEN
{
^ê½ 35
^ê║ = 35
é
}
I @Çû ^ê½ = $üé AND ^ê⌐ = 1 THEN
{
^ê½ = @Çç `Ǫ 35
^ê║ = 35
é
}
}
W 2 SECONDS
i LEX SEEGUN
}
{ BLK4_LOAD
I ^îî = $üâ THEN O $Çò
I ^ǽ = 1 AND @Çû ^ê½ THEN
{
^ê½
é
}
I ^ǽ = 2 THEN
{
I @Çû ^ê½ THEN
{
^ê½ 30
^ê║ = 30
é
}
I @Çû ^ê½ = $üé THEN
{
^ê½ = @Çç `Ǫ 30
^ê║ = 30
é
}
}
I ^ǽ = 0 THEN
{
I @Çû ^ê½ THEN
{
^ê½ 45
^ê║ = 45
é
}
E
{
^ê½ = @Çç `Ǫ 45
^ê║ = 45
é
}
}
}
{ BLK5_LOAD
I ^ǽ = 1 AND @Çû ^ê½ THEN
{
^ê½
é
}
I ^ǽ = 2 THEN
{
I @Çû ^ê½ THEN
{
^ê½ 50
^ê║ = 50
é
}
I @Çû ^ê½ =_FALSE AND ^ê⌐ = 1 THEN
{
^ê½ = @Çç `Ǫ 50
^ê║ = 50
é
}
}
I ^ǽ = 0 THEN
{
I @Çû ^ê½ THEN
{
^ê½ 65
^ê║ = 65
é
}
I @Çû ^ê½ = $üé THEN
{
^ê½ = @Çç `Ǫ 65
^ê║ = 65
é
}
}
}
{ CAYBYE
^îÄ = 0
}
{ CELPAN_USE
^Ç╢ ++
A OFF
£ 0 GRADUAL
I ^å╜ = 1 THEN
{
M LOOK_AT_MON FREEZE
@Çì CC_CIRCUITBOARD
}
E
{
M PRY_CELPAN_FAIL FREEZE
M STAND CONTINUE
W 2 SECONDS
i LEX PANELON
}
A ON
^Ç╢ --
}
{ CELPAN_FORK_USE
^Ç╢ ++
A OFF
£ 0 GRADUAL
I ^å╜ = 1 THEN
{
M LOOK_AT_MON FREEZE
@Çì CC_CIRCUITBOARD
}
E
{
M PRY_CELPAN 90
â
@Çì CELPAN_SWING
^å╜ = 1
}
A ON
^Ç╢ --
}
[ CELPAN_SWING
00:01 ^éü = 2
00:03 ^éü = 3
@Çå `ïè 200 1024
00:05 ^éü = 4
00:07 ^éü = 5
00:09 ^éü = 6
00:11 ^éü = 7
00:13 ^éü = 8
00:15 ^éü = 9
00:17 ^éü = 10
00:19 ^éü = 11
@Çå `ïï 200 -1024
00:21 ^éü = 12
]
[ FULLY_OPEN_CELL_DOOR
00:10 @Çå `Çî
00:10 ^ǽ = 2
00:11 I @Çû ^ê½ THEN
@Çî ^ê½ ^ê║ 65 60
E
{
^ê½ = @Çç `Ǫ 0
@Çî ^ê½ 0 65 60
}
00:23 ^ǽ = 3
01:06 ^ǽ = 4
01:19 ^ǽ = 5
02:02 ^ǽ = 6
02:15 ^ǽ = 7
02:28 ^ǽ = 8
03:11 ^ǽ = 9
03:24 ^ǽ = 10
03:29 ^ǽ = 0
]
[ PARTIALLY_OPEN_CELL_DOOR
02:00 @Çå `äÇ
^ǽ = 1
02:02 ^ǽ = 2
^ê½ = @Çç `ùÅ 50
^ê⌐ = 1
02:23 @Çå `⺠255 -2048
02:24 @Çå `Çí
@Çì CELPAN_EXPLOSION
07:00 i LEX CELLDOOR
]
[ JUST_SEE_SPARKS
02:00 @Çå `äÇ
02:23 @Çå `⺠255 -2048
02:24 @Çå `Çí
@Çì CELPAN_EXPLOSION
]
[ CELPAN_EXPLOSION
00:00 ^Çú = 1
00:05 ^Çú = 2
00:10 ^Çú = 3
00:15 ^Çú = 4
00:20 ^Çú = 5
00:25 ^Çú = 6
01:00 ^Çú = 7
00:05 ^Çú = 8
00:10 ^Çú = 9
00:15 ^Çú = 10
^Çó = 1
]
{ PRY_DR_USE
P ~ÇÇ
I ^å║ = 1 THEN é
A OFF
G PRY_HERE WALK
£ -90 GRADUAL
I ^å╗ = 4 THEN
{
M PRY_READY
@Çì FULLY_OPEN_CELL_DOOR
^éé = 2
M PRY_DOOR 115
^ä½ = $âé
^å║ = 1
i GMAINT C4REP
æ DEMOKEYS
M STAND CONTINUE
W 2 SECONDS
@Ç£ DOWN 45
I @üî EARLYDEMO THEN J #Çô
╗
O $Çá
d
I @üî LANGUAGE == $â» THEN
▒ "GERMAN"
E I @üî LANGUAGE == $â« THEN
▒ "FRENCH"
E
▒ "USA"
╖ 4
@Ç£ UP 45
@üï DEMO1SOUNDS 162
^Ç╖
│
╝
O $ÇÇ
O $Çá
:SKIP_DEMO1
C SHOW DEMO3
O $ÇÜ
@Ç£ UP 45
@Ç¥ SHOWSCREENSHOTS
@Ç£ DOWN 45
╗
▒ "demo19"
╖ 4
@Ç£ UP 45
@üï DEMO19SOUNDS 240
^Ç╖
╝
d
└
}
I ^ǽ != 2 THEN
{
@Çì PARTIALLY_OPEN_CELL_DOOR
}
E
{
@Çì JUST_SEE_SPARKS
}
M PRY_DOOR_FAIL 130
:CLEANUP
A ON
}
[ DEMO1SOUNDS
00:00 ^åû = $âç
00:15 O $Ç▒
09:00 @Çå `ïî
10:00 ^Ç╖ = @Ç£ DOWN 45
300:00 @Çå `üª
]
[ DEMO19SOUNDS
00:00 ^åû = $âç
14:20 ^Ç╖ = @Ç£ DOWN 45
300:00 @Çå `üª
]
[ SHOWSCREENSHOTS
00:20 @Ç£ DOWN 10
01:00 C SHOW DEMO4
@Ç£ UP 10
02:20 @Ç£ DOWN 10
03:00 C SHOW DEMO5
@Ç£ UP 10
04:20 @Ç£ DOWN 10
05:00 C SHOW DEMO6
@Ç£ UP 10
06:20 @Ç£ DOWN 10
07:00 C SHOW DEMO7
@Ç£ UP 10
08:20 @Ç£ DOWN 10
09:00 C SHOW DEMO9
@Ç£ UP 10
10:20 @Ç£ DOWN 10
11:00 C SHOW DEMO10
@Ç£ UP 10
12:20 @Ç£ DOWN 10
13:00 C SHOW DEMO11
@Ç£ UP 10
14:20 @Ç£ DOWN 10
15:00 C SHOW DEMO12
@Ç£ UP 10
16:20 @Ç£ DOWN 10
17:00 C SHOW DEMO13
@Ç£ UP 10
18:20 @Ç£ DOWN 10
19:00 C SHOW DEMO14
@Ç£ UP 10
20:20 @Ç£ DOWN 10
21:00 C SHOW DEMO15
@Ç£ UP 10
22:20 @Ç£ DOWN 10
23:00 C SHOW DEMO16
@Ç£ UP 10
24:20 @Ç£ DOWN 10
25:00 C SHOW DEMO17
@Ç£ UP 10
25:20 é
]
{ F1KEY
I ^åû = 666 THEN é
æ F1KEYS
^åû = 666
I @üî LANGUAGE == $â» THEN
C SHOW KEYSG
E I @üî LANGUAGE == $â« THEN
C SHOW KEYSF
E
C SHOW KEYS
:WAITING_FOR_ESC
â
I ^åû == 666 THEN J #ÇÖ
C UNLOCK
Æ
}
{ F1KEYS _KEY _MODIFIERS _MOUSE
I ~ÇÇ == $üƒ THEN
^åû = $âç
é
}
{ DEMOKEYS _KEY _MODIFIERS _MOUSE
I ~ÇÇ == $éï THEN
I @ÇÑ ~Çü THEN
└
I ~ÇÇ == $üƒ THEN
└
é
}
{ FLICKER_LIGHT
ó BLK1 BLK2 BLK3 BLK4 BLK5
:LIGHTLOOP
I @Çà 1 4 = 1 THEN J #Ç₧
^éû = 2
I @ÇÄ BLK2 THEN
Ü -2 -2 -2 999
I @ÇÄ BLK1 || @ÇÄ BLK3 THEN
Ü -1 -1 -1 999
@Çå `⺠LGHT_LOC
â
^éû = 3
â
J #Ç¥
:LIGHTON
^éû = 1
I @ÇÄ BLK1 || @ÇÄ BLK2 || @ÇÄ BLK3 THEN
Ü 0 0 0 999
â
^å╡ = @Çà 10 40
W ^å╡
J #Ç¥
}
{ BLOCK_DRIP
@Ç¢ PLAYER
ó BLK1 BLK2 BLK3 BLK4 BLK5
:TOP
W 30
I @Çô DRIPPED_ON THEN J #Çá
@Çè ^éê 1 0 7 2
I @Çí CURFIG DRIP THEN
{
^éê = 0
^éë = 8
â
^éë ++
â
I @Ç¢ LEX THEN @Çå `éà
E @Çå `ä╣
M DRIPPED_ON CONTINUE
@Çè ^éë 1 9 12 2
}
E
{
@Çè ^éê 1 8 12 2
I @ÇÄ BLK1 THEN @Çå `éä 70
E I @ÇÄ BLK2 THEN @Çå `éä 90
}
^éê = 0
^éë = 0
J #Çá
}
{ SETCELLONEBARS _VALUE
^åê = ~ÇÇ
^åî = 1 - ~ÇÇ
I ~ÇÇ == 0 THEN
{
I @Çó ^åÉ == $üé THEN
{
^åÉ = @Çì CELLONEBARS
I @Ç¢ USE_BOT THEN
¥ AVDBAR1 110
}
}
E
{
^åÉ
^åÉ = $âà
^ü╣ = 0
I @Ç¢ USE_BOT THEN
₧ AVDBAR1
}
}
{ SETCELLTHREEBARS _VALUE
^åè = ~ÇÇ
^åÄ = 1 - ~ÇÇ
I ~ÇÇ == 0 THEN
{
I @Çó ^åæ == $üé THEN
{
^åæ = @Çì CELLTHREEBARS
I @Ç¢ USE_BOT THEN
¥ AVDBAR3 110
}
}
E
{
^åæ
^åæ = $âà
^ü╕ = 0
I @Ç¢ USE_BOT THEN
₧ AVDBAR3
}
}
{ SETCELLFOURBARS _VALUE
^åï = ~ÇÇ
^åÅ = 1 - ~ÇÇ
I ~ÇÇ == 0 THEN
{
I @Çó ^åÆ == $üé THEN
{
^åÆ = @Çì CELLFOURBARS
I @Ç¢ USE_BOT THEN
¥ AVDBAR4 110
}
}
E
{
^åÆ
^åÆ = $âà
^ü╗ = 0
I @Ç¢ USE_BOT THEN
₧ AVDBAR4
}
}
{ CELLONEBARS
P ~ÇÇ
ó BLK4 CE11 CE12 CE22 CE24
~ÇÇ = $üé
â
:TOP
I ^åê THEN
! "Evil1"
:LOOP_ON
^åî = 1
^ü╣ = 1
â
^ü╣ = 2
â
^ü╣ = 3
â
^ü╣ = 4
â
^ü╣ = 5
â
L #Ǫ 6
I ^ï¢ THEN
J #Ǻ
E
J #ÇÑ
:LOOP_OFF
@Çå `éü AVDBAR3
^ü╣ = 0
â
^ü╣ = 1
â
^ü╣ = 0
â
^ü╣ = 1
â
^åî = 0
^ü╣ = 0
â
I ~ÇÇ = $üé THEN
{
W 60
~ÇÇ = $üâ
}
E
{
W 20
~ÇÇ = $üé
}
^åî = 1
@Çå `éü AVDBAR3
^ü╣ = 1
â
^ü╣ = 0
â
^ü╣ = 1
â
^ü╣ = 0
â
J #ÇÑ
}
{ CELLTWOBARS
ó BLK2 BLK3 CE12 CE21 CE22 CE23 CE24
^åì = 1
:LOOP
I ^åë THEN
! "Evil2"
^ü║ = 1
â
^ü║ = 2
â
^ü║ = 3
â
^ü║ = 4
â
^ü║ = 5
â
J #Ç⌐
}
{ CELLTHREEBARS
ó BLK1 CE31 CE32 CE33 CE42 CE43
â
:TOP
I ^åè THEN
! "Evil3"
:LOOP_ON
^ü╕ = 1
â
^ü╕ = 2
â
^ü╕ = 3
â
^ü╕ = 4
â
^ü╕ = 5
â
L #Ǽ 6
I ^ï¥ THEN
{
I ^åç = 1 THEN
{
J #Ç¡
}
}
J #ǽ
:LOOP_OFF
@Çå `éü AVDBAR3
^ü╕ = 0
â
^ü╕ = 1
â
^ü╕ = 0
â
^ü╕ = 1
â
^åÄ = 0
^ü╕ = 0
â
W 120
^åÄ = 1
@Çå `éü AVDBAR3
^ü╕ = 1
â
^ü╕ = 0
â
^ü╕ = 1
â
^ü╕ = 0
â
J #ǽ
}
{ CELLFOURBARS
ó BLK1 CE32 CE41 CE42 CE43 BLK7
:LOOP
I ^åï THEN
! "Evil4"
^ü╗ = 1
â
^ü╗ = 2
â
^ü╗ = 3
â
^ü╗ = 4
â
^ü╗ = 5
â
J #Ç»
}
{ CELL3_MON
ó CE31 CE32 CE33
@Ç¢ PLAYER
:LOOP
I @Ç¡ CURFIG CE3 == 0 THEN
{
â
J #Ç▒
}
I ^åç == 1 THEN
^åò = 10
I ^åò < 10 && ^åò > 4 THEN
^åò -= 1
^â╡ = 1
W ^åò
^â╡ = 2
W ^åò
^â╡ = 3
W ^åò
^â╡ = 4
W ^åò
^â╡ = 5
@Çå `ü▒ AVDBNK3
W ^åò
^â╡ = 6
W ^åò
J #Ç▒
}
//$ 26 - version number